home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / Macintosh Common Lisp Related / User Contributions / oodles-of-utils.sea / oodles-of-utils / NotInROM / NotInROM-u.lisp < prev    next >
MacBinary  |  1992-02-21  |  6.8 KB  |  [TEXT/CCL2]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Fri Feb 21 09:48:02 1992, modified Fri Feb 21 09:48:02 1992, creator Common Lisp 2, type ASCII, 6179 bytes "NotInROM-u.lisp" , at 0x18a3 442 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[CCL2]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 4e 6f 74 49 6e 52 | 4f 4d 2d 75 2e 6c 69 73 |..NotInR|OM-u.lis|
|00000010| 70 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |p.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 18 23 00 | 00 01 ba a5 ca c1 a2 a5 |......#.|........|
|00000060| ca c1 a2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 74 cb 00 00 |........|....t...|
|00000080| 3b 3b 20 2d 2a 2d 20 70 | 61 63 6b 61 67 65 3a 20 |;; -*- p|ackage: |
|00000090| 4e 6f 74 49 6e 52 4f 4d | 20 2d 2a 2d 0d 3b 3b 3b |NotInROM| -*-.;;;|
|000000a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 0d 3b 3b 20 4e | 6f 74 49 6e 52 4f 4d 2d |;;;.;; N|otInROM-|
|000000f0| 75 2e 4c 69 73 70 0d 3b | 3b 0d 3b 3b 20 43 6f 70 |u.Lisp.;|;.;; Cop|
|00000100| 79 72 69 67 68 74 20 a9 | 20 31 39 39 32 20 4e 6f |yright .| 1992 No|
|00000110| 72 74 68 77 65 73 74 65 | 72 6e 20 55 6e 69 76 65 |rthweste|rn Unive|
|00000120| 72 73 69 74 79 20 49 6e | 73 74 69 74 75 74 65 20 |rsity In|stitute |
|00000130| 66 6f 72 20 74 68 65 20 | 4c 65 61 72 6e 69 6e 67 |for the |Learning|
|00000140| 20 53 63 69 65 6e 63 65 | 73 0d 3b 3b 20 41 6c 6c | Science|s.;; All|
|00000150| 20 52 69 67 68 74 73 20 | 52 65 73 65 72 76 65 64 | Rights |Reserved|
|00000160| 0d 3b 3b 0d 3b 3b 20 61 | 75 74 68 6f 72 3a 20 4d |.;;.;; a|uthor: M|
|00000170| 69 63 68 61 65 6c 20 53 | 2e 20 45 6e 67 62 65 72 |ichael S|. Engber|
|00000180| 0d 3b 3b 0d 3b 3b 20 50 | 72 6f 76 69 64 65 73 20 |.;;.;; P|rovides |
|00000190| 61 20 73 79 6e 74 61 78 | 20 66 6f 72 20 64 65 66 |a syntax| for def|
|000001a0| 69 6e 69 6e 67 20 61 6e | 64 20 63 61 6c 6c 69 6e |ining an|d callin|
|000001b0| 67 20 22 4e 6f 74 20 69 | 6e 20 52 4f 4d 22 20 54 |g "Not i|n ROM" T|
|000001c0| 6f 6f 6c 42 6f 78 20 52 | 6f 75 74 69 6e 65 73 0d |oolBox R|outines.|
|000001d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000200| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000210| 3b 3b 3b 3b 3b 3b 0d 0d | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;..|;;;;;;;;|
|00000220| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000230| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000240| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000250| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 0d 3b |;;;;;;;;|;;;;;;.;|
|00000260| 3b 20 0d 3b 3b 20 4d 6f | 64 69 66 69 63 61 74 69 |; .;; Mo|dificati|
|00000270| 6f 6e 20 48 69 73 74 6f | 72 79 0d 3b 3b 0d 3b 3b |on Histo|ry.;;.;;|
|00000280| 20 30 32 2f 31 31 2f 39 | 32 20 62 69 6c 6c 20 20 | 02/11/9|2 bill  |
|00000290| 20 45 58 50 4f 52 54 20 | 67 6f 65 73 20 61 66 74 | EXPORT |goes aft|
|000002a0| 65 72 20 49 4e 2d 50 41 | 43 4b 41 47 45 2c 20 50 |er IN-PA|CKAGE, P|
|000002b0| 52 4f 56 49 44 45 20 61 | 74 20 65 6e 64 20 6f 66 |ROVIDE a|t end of|
|000002c0| 20 66 69 6c 65 2e 0d 3b | 3b 0d 0d 28 64 65 66 70 | file..;|;..(defp|
|000002d0| 61 63 6b 61 67 65 20 3a | 4e 6f 74 49 6e 52 4f 4d |ackage :|NotInROM|
|000002e0| 0d 20 20 28 3a 75 73 65 | 20 3a 63 6f 6d 6d 6f 6e |.  (:use| :common|
|000002f0| 2d 6c 69 73 70 20 3a 63 | 6f 6d 6d 6f 6e 2d 6c 69 |-lisp :c|ommon-li|
|00000300| 73 70 2d 75 73 65 72 20 | 3a 63 63 6c 29 29 0d 0d |sp-user |:ccl))..|
|00000310| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 3a 4e 6f 74 |(in-pack|age :Not|
|00000320| 49 6e 52 4f 4d 29 0d 0d | 28 65 78 70 6f 72 74 20 |InROM)..|(export |
|00000330| 27 28 72 65 71 75 69 72 | 65 2d 74 72 61 70 2d 4e |'(requir|e-trap-N|
|00000340| 6f 74 49 6e 52 4f 4d 20 | 64 65 66 74 72 61 70 2d |otInROM |deftrap-|
|00000350| 4e 6f 74 49 6e 52 4f 4d | 20 64 65 66 74 72 61 70 |NotInROM| deftrap|
|00000360| 2d 61 6c 74 2d 6e 61 6d | 65 29 29 0d 0d 3b 3b 3b |-alt-nam|e))..;;;|
|00000370| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000380| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000390| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000003a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000003b0| 3b 3b 3b 0d 0d 0d 3b 3b | 20 66 6f 72 20 4e 6f 74 |;;;...;;| for Not|
|000003c0| 20 69 6e 20 52 4f 4d 20 | 74 72 61 70 73 20 72 65 | in ROM |traps re|
|000003d0| 71 75 69 72 69 6e 67 20 | 61 20 66 6e 20 64 65 66 |quiring |a fn def|
|000003e0| 6e 0d 28 64 65 66 6d 61 | 63 72 6f 20 64 65 66 74 |n.(defma|cro deft|
|000003f0| 72 61 70 2d 4e 6f 74 49 | 6e 52 4f 4d 20 28 73 79 |rap-NotI|nROM (sy|
|00000400| 6d 62 6f 6c 20 72 65 73 | 75 6c 74 2d 74 79 70 65 |mbol res|ult-type|
|00000410| 20 28 26 72 65 73 74 20 | 74 79 70 65 64 2d 61 72 | (&rest |typed-ar|
|00000420| 67 6c 69 73 74 29 20 26 | 62 6f 64 79 20 62 6f 64 |glist) &|body bod|
|00000430| 79 29 0d 20 20 28 64 65 | 63 6c 61 72 65 20 28 69 |y).  (de|clare (i|
|00000440| 67 6e 6f 72 65 20 72 65 | 73 75 6c 74 2d 74 79 70 |gnore re|sult-typ|
|00000450| 65 29 29 0d 20 20 28 6c | 65 74 2a 20 28 28 74 72 |e)).  (l|et* ((tr|
|00000460| 61 70 2d 73 79 6d 20 20 | 20 20 20 20 20 28 65 6e |ap-sym  |     (en|
|00000470| 73 75 72 65 2d 74 72 61 | 70 2d 73 79 6d 20 73 79 |sure-tra|p-sym sy|
|00000480| 6d 62 6f 6c 29 29 0d 20 | 20 20 20 20 20 20 20 20 |mbol)). |        |
|00000490| 28 66 6e 2d 73 79 6d 20 | 20 20 20 20 20 20 20 20 |(fn-sym |        |
|000004a0| 28 67 65 6e 2d 4e 49 52 | 2d 66 6e 2d 73 79 6d 20 |(gen-NIR|-fn-sym |
|000004b0| 74 72 61 70 2d 73 79 6d | 29 29 0d 20 20 20 20 20 |trap-sym|)).     |
|000004c0| 20 20 20 20 28 6d 61 63 | 72 6f 2d 73 79 6d 20 20 |    (mac|ro-sym  |
|000004d0| 20 20 20 20 28 67 65 6e | 2d 4e 49 52 2d 6d 61 63 |    (gen|-NIR-mac|
|000004e0| 72 6f 2d 73 79 6d 20 74 | 72 61 70 2d 73 79 6d 29 |ro-sym t|rap-sym)|
|000004f0| 29 0d 20 20 20 20 20 20 | 20 20 20 28 61 72 67 6c |).      |   (argl|
|00000500| 69 73 74 20 20 20 20 20 | 20 20 20 28 6d 61 70 63 |ist     |   (mapc|
|00000510| 61 72 20 23 27 66 69 72 | 73 74 20 74 79 70 65 64 |ar #'fir|st typed|
|00000520| 2d 61 72 67 6c 69 73 74 | 29 29 0d 20 20 20 20 20 |-arglist|)).     |
|00000530| 20 20 20 20 28 74 79 70 | 65 2d 73 70 65 63 2d 6c |    (typ|e-spec-l|
|00000540| 69 73 74 20 28 6d 61 70 | 63 61 72 20 23 27 73 65 |ist (map|car #'se|
|00000550| 63 6f 6e 64 20 74 79 70 | 65 64 2d 61 72 67 6c 69 |cond typ|ed-argli|
|00000560| 73 74 29 29 29 0d 20 20 | 20 20 0d 20 20 20 20 60 |st))).  |  .    `|
|00000570| 28 65 76 61 6c 2d 77 68 | 65 6e 20 28 3a 63 6f 6d |(eval-wh|en (:com|
|00000580| 70 69 6c 65 2d 74 6f 70 | 6c 65 76 65 6c 20 3a 6c |pile-top|level :l|
|00000590| 6f 61 64 2d 74 6f 70 6c | 65 76 65 6c 20 3a 65 78 |oad-topl|evel :ex|
|000005a0| 65 63 75 74 65 29 0d 20 | 20 20 20 20 20 20 28 73 |ecute). |      (s|
|000005b0| 65 74 66 20 28 67 65 74 | 20 27 2c 74 72 61 70 2d |etf (get| ',trap-|
|000005c0| 73 79 6d 20 3a 4e 6f 74 | 49 6e 52 4f 4d 2d 66 6e |sym :Not|InROM-fn|
|000005d0| 2d 73 79 6d 29 20 20 20 | 20 27 2c 66 6e 2d 73 79 |-sym)   | ',fn-sy|
|000005e0| 6d 29 0d 20 20 20 20 20 | 20 20 28 73 65 74 66 20 |m).     |  (setf |
|000005f0| 28 67 65 74 20 27 2c 74 | 72 61 70 2d 73 79 6d 20 |(get ',t|rap-sym |
|00000600| 3a 4e 6f 74 49 6e 52 4f | 4d 2d 6d 61 63 72 6f 2d |:NotInRO|M-macro-|
|00000610| 73 79 6d 29 20 27 2c 6d | 61 63 72 6f 2d 73 79 6d |sym) ',m|acro-sym|
|00000620| 29 0d 20 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |).      | .      |
|00000630| 20 28 64 65 66 6d 61 63 | 72 6f 20 2c 6d 61 63 72 | (defmac|ro ,macr|
|00000640| 6f 2d 73 79 6d 20 2c 61 | 72 67 6c 69 73 74 0d 20 |o-sym ,a|rglist. |
|00000650| 20 20 20 20 20 20 20 20 | 28 4e 49 52 2d 61 72 67 |        |(NIR-arg|
|00000660| 6c 69 73 74 2d 63 68 65 | 63 6b 20 27 2c 66 6e 2d |list-che|ck ',fn-|
|00000670| 73 79 6d 20 27 2c 61 72 | 67 6c 69 73 74 20 27 2c |sym ',ar|glist ',|
|00000680| 74 79 70 65 2d 73 70 65 | 63 2d 6c 69 73 74 29 0d |type-spe|c-list).|
|00000690| 20 20 20 20 20 20 20 20 | 20 60 28 2c 27 2c 66 6e |        | `(,',fn|
|000006a0| 2d 73 79 6d 20 2c 2c 40 | 61 72 67 6c 69 73 74 29 |-sym ,,@|arglist)|
|000006b0| 29 0d 20 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |).      | .      |
|000006c0| 20 28 64 65 66 75 6e 20 | 2c 66 6e 2d 73 79 6d 20 | (defun |,fn-sym |
|000006d0| 2c 61 72 67 6c 69 73 74 | 20 2c 40 62 6f 64 79 29 |,arglist| ,@body)|
|000006e0| 29 29 29 0d 0d 0d 3b 3b | 20 66 6f 72 20 4e 6f 74 |)))...;;| for Not|
|000006f0| 20 69 6e 20 52 4f 4d 20 | 74 72 61 70 73 20 73 69 | in ROM |traps si|
|00000700| 6d 70 6c 79 20 72 65 71 | 75 69 72 69 6e 67 20 61 |mply req|uiring a|
|00000710| 20 72 65 6e 61 6d 69 6e | 67 0d 28 64 65 66 6d 61 | renamin|g.(defma|
|00000720| 63 72 6f 20 64 65 66 74 | 72 61 70 2d 61 6c 74 2d |cro deft|rap-alt-|
|00000730| 6e 61 6d 65 20 28 61 6c | 74 2d 74 72 61 70 2d 73 |name (al|t-trap-s|
|00000740| 79 6d 62 6f 6c 20 61 73 | 6d 2d 74 72 61 70 2d 73 |ymbol as|m-trap-s|
|00000750| 79 6d 62 6f 6c 29 0d 20 | 20 28 6c 65 74 20 28 28 |ymbol). | (let ((|
|00000760| 61 6c 74 2d 74 72 61 70 | 2d 73 79 6d 20 28 65 6e |alt-trap|-sym (en|
|00000770| 73 75 72 65 2d 74 72 61 | 70 2d 73 79 6d 20 61 6c |sure-tra|p-sym al|
|00000780| 74 2d 74 72 61 70 2d 73 | 79 6d 62 6f 6c 29 29 0d |t-trap-s|ymbol)).|
|00000790| 20 20 20 20 20 20 20 20 | 28 61 73 6d 2d 74 72 61 |        |(asm-tra|
|000007a0| 70 2d 73 79 6d 20 28 65 | 6e 73 75 72 65 2d 74 72 |p-sym (e|nsure-tr|
|000007b0| 61 70 2d 73 79 6d 20 61 | 73 6d 2d 74 72 61 70 2d |ap-sym a|sm-trap-|
|000007c0| 73 79 6d 62 6f 6c 29 29 | 29 0d 20 20 20 20 60 28 |symbol))|).    `(|
|000007d0| 65 76 61 6c 2d 77 68 65 | 6e 20 28 3a 63 6f 6d 70 |eval-whe|n (:comp|
|000007e0| 69 6c 65 2d 74 6f 70 6c | 65 76 65 6c 20 3a 6c 6f |ile-topl|evel :lo|
|000007f0| 61 64 2d 74 6f 70 6c 65 | 76 65 6c 20 3a 65 78 65 |ad-tople|vel :exe|
|00000800| 63 75 74 65 29 0d 20 20 | 20 20 20 20 20 28 73 65 |cute).  |     (se|
|00000810| 74 66 20 28 67 65 74 20 | 27 2c 61 6c 74 2d 74 72 |tf (get |',alt-tr|
|00000820| 61 70 2d 73 79 6d 20 3a | 4e 6f 74 49 6e 52 4f 4d |ap-sym :|NotInROM|
|00000830| 2d 6d 61 63 72 6f 2d 73 | 79 6d 29 20 27 2c 61 73 |-macro-s|ym) ',as|
|00000840| 6d 2d 74 72 61 70 2d 73 | 79 6d 29 29 29 29 0d 0d |m-trap-s|ym))))..|
|00000850| 0d 3b 3b 61 6e 61 6c 6f | 67 6f 75 73 20 74 6f 20 |.;;analo|gous to |
|00000860| 72 65 71 75 69 72 65 2d | 74 72 61 70 0d 28 64 65 |require-|trap.(de|
|00000870| 66 6d 61 63 72 6f 20 72 | 65 71 75 69 72 65 2d 74 |fmacro r|equire-t|
|00000880| 72 61 70 2d 4e 6f 74 49 | 6e 52 4f 4d 20 28 74 72 |rap-NotI|nROM (tr|
|00000890| 61 70 2d 73 79 6d 62 6f | 6c 20 26 72 65 73 74 20 |ap-symbo|l &rest |
|000008a0| 61 72 67 6c 69 73 74 29 | 0d 20 20 28 69 66 20 28 |arglist)|.  (if (|
|000008b0| 74 72 61 70 2d 70 72 65 | 66 69 78 70 20 74 72 61 |trap-pre|fixp tra|
|000008c0| 70 2d 73 79 6d 62 6f 6c | 29 0d 20 20 20 20 60 28 |p-symbol|).    `(|
|000008d0| 72 65 71 75 69 72 65 2d | 74 72 61 70 20 2c 74 72 |require-|trap ,tr|
|000008e0| 61 70 2d 73 79 6d 62 6f | 6c 20 2c 40 61 72 67 6c |ap-symbo|l ,@argl|
|000008f0| 69 73 74 29 0d 20 20 20 | 20 60 28 2c 74 72 61 70 |ist).   | `(,trap|
|00000900| 2d 73 79 6d 62 6f 6c 20 | 2c 40 61 72 67 6c 69 73 |-symbol |,@arglis|
|00000910| 74 29 29 29 0d 0d 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |t)))..;;|;;;;;;;;|
|00000920| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000930| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000940| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000950| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 0d 0d 0d 3b |;;;;;;;;|;;;;...;|
|00000960| 3b 74 61 6b 65 73 20 61 | 20 70 6f 74 65 6e 74 69 |;takes a| potenti|
|00000970| 61 6c 20 74 72 61 70 20 | 73 79 6d 62 6f 6c 2c 20 |al trap |symbol, |
|00000980| 6d 61 6b 65 73 20 73 75 | 72 65 20 69 74 20 69 6e |makes su|re it in|
|00000990| 20 74 68 65 20 72 69 67 | 68 74 20 70 61 63 6b 61 | the rig|ht packa|
|000009a0| 67 65 20 61 6e 64 20 62 | 65 67 69 6e 73 20 77 69 |ge and b|egins wi|
|000009b0| 74 68 20 61 6e 20 5f 0d | 28 64 65 66 75 6e 20 65 |th an _.|(defun e|
|000009c0| 6e 73 75 72 65 2d 74 72 | 61 70 2d 73 79 6d 20 28 |nsure-tr|ap-sym (|
|000009d0| 73 79 6d 62 6f 6c 29 0d | 20 20 28 69 66 20 28 74 |symbol).|  (if (t|
|000009e0| 72 61 70 2d 70 72 65 66 | 69 78 70 20 73 79 6d 62 |rap-pref|ixp symb|
|000009f0| 6f 6c 29 0d 20 20 20 20 | 28 69 66 20 28 65 71 20 |ol).    |(if (eq |
|00000a00| 28 73 79 6d 62 6f 6c 2d | 70 61 63 6b 61 67 65 20 |(symbol-|package |
|00000a10| 73 79 6d 62 6f 6c 29 20 | 63 63 6c 3a 3a 2a 74 72 |symbol) |ccl::*tr|
|00000a20| 61 70 73 2d 70 61 63 6b | 61 67 65 2a 29 0d 20 20 |aps-pack|age*).  |
|00000a30| 20 20 20 20 73 79 6d 62 | 6f 6c 0d 20 20 20 20 20 |    symb|ol.     |
|00000a40| 20 28 69 6e 74 65 72 6e | 20 28 73 79 6d 62 6f 6c | (intern| (symbol|
|00000a50| 2d 6e 61 6d 65 20 73 79 | 6d 62 6f 6c 29 20 3a 74 |-name sy|mbol) :t|
|00000a60| 72 61 70 73 29 29 0d 20 | 20 20 20 28 65 72 72 6f |raps)). |   (erro|
|00000a70| 72 20 22 74 72 61 70 20 | 73 79 6d 62 6f 6c 20 7e |r "trap |symbol ~|
|00000a80| 73 20 64 6f 65 73 20 6e | 6f 74 20 73 74 61 72 74 |s does n|ot start|
|00000a90| 20 77 69 74 68 20 61 6e | 20 5f 22 20 73 79 6d 62 | with an| _" symb|
|00000aa0| 6f 6c 29 29 29 0d 0d 3b | 3b 67 65 6e 65 72 61 74 |ol)))..;|;generat|
|00000ab0| 65 73 20 61 20 73 79 6d | 62 6f 6c 20 66 6f 72 20 |es a sym|bol for |
|00000ac0| 74 68 65 20 4e 6f 74 20 | 69 6e 20 52 4f 4d 20 66 |the Not |in ROM f|
|00000ad0| 6e 0d 28 64 65 66 75 6e | 20 67 65 6e 2d 4e 49 52 |n.(defun| gen-NIR|
|00000ae0| 2d 66 6e 2d 73 79 6d 20 | 28 73 79 6d 62 6f 6c 29 |-fn-sym |(symbol)|
|00000af0| 0d 20 20 28 69 6e 74 65 | 72 6e 20 28 63 6f 6e 63 |.  (inte|rn (conc|
|00000b00| 61 74 65 6e 61 74 65 20 | 27 73 74 72 69 6e 67 20 |atenate |'string |
|00000b10| 22 4e 49 52 22 20 28 73 | 79 6d 62 6f 6c 2d 6e 61 |"NIR" (s|ymbol-na|
|00000b20| 6d 65 20 73 79 6d 62 6f | 6c 29 29 20 3a 74 72 61 |me symbo|l)) :tra|
|00000b30| 70 73 29 29 0d 0d 3b 3b | 67 65 6e 65 72 61 74 65 |ps))..;;|generate|
|00000b40| 73 20 61 20 73 79 6d 62 | 6f 6c 20 66 6f 72 20 74 |s a symb|ol for t|
|00000b50| 68 65 20 6d 61 63 72 6f | 20 74 6f 20 64 6f 20 63 |he macro| to do c|
|00000b60| 6f 6d 70 69 6c 65 20 74 | 69 6d 65 20 61 72 67 20 |ompile t|ime arg |
|00000b70| 63 68 65 63 6b 69 6e 67 | 20 66 6f 72 20 74 68 65 |checking| for the|
|00000b80| 20 4e 6f 74 20 69 6e 20 | 52 4f 4d 20 66 6e 0d 28 | Not in |ROM fn.(|
|00000b90| 64 65 66 75 6e 20 67 65 | 6e 2d 4e 49 52 2d 6d 61 |defun ge|n-NIR-ma|
|00000ba0| 63 72 6f 2d 73 79 6d 20 | 28 73 79 6d 62 6f 6c 29 |cro-sym |(symbol)|
|00000bb0| 0d 20 20 28 69 6e 74 65 | 72 6e 20 28 63 6f 6e 63 |.  (inte|rn (conc|
|00000bc0| 61 74 65 6e 61 74 65 20 | 27 73 74 72 69 6e 67 20 |atenate |'string |
|00000bd0| 22 54 43 48 45 43 4b 2d | 4e 49 52 22 20 28 73 79 |"TCHECK-|NIR" (sy|
|00000be0| 6d 62 6f 6c 2d 6e 61 6d | 65 20 73 79 6d 62 6f 6c |mbol-nam|e symbol|
|00000bf0| 29 29 20 3a 74 72 61 70 | 73 29 29 0d 0d 3b 3b 63 |)) :trap|s))..;;c|
|00000c00| 68 65 63 6b 73 20 69 66 | 20 61 20 73 79 6d 62 6f |hecks if| a symbo|
|00000c10| 6c 20 73 74 61 72 74 73 | 20 77 69 74 68 20 61 6e |l starts| with an|
|00000c20| 20 5f 0d 28 64 65 66 75 | 6e 20 74 72 61 70 2d 70 | _.(defu|n trap-p|
|00000c30| 72 65 66 69 78 70 20 28 | 73 79 6d 62 6f 6c 29 0d |refixp (|symbol).|
|00000c40| 20 20 28 63 68 61 72 3d | 20 23 5c 5f 20 28 63 68 |  (char=| #\_ (ch|
|00000c50| 61 72 20 28 73 79 6d 62 | 6f 6c 2d 6e 61 6d 65 20 |ar (symb|ol-name |
|00000c60| 73 79 6d 62 6f 6c 29 20 | 30 29 29 29 0d 0d 3b 3b |symbol) |0)))..;;|
|00000c70| 63 6f 6d 70 69 6c 65 20 | 74 69 6d 65 20 74 79 70 |compile |time typ|
|00000c80| 65 20 63 68 65 63 6b 69 | 6e 67 0d 28 64 65 66 75 |e checki|ng.(defu|
|00000c90| 6e 20 4e 49 52 2d 61 72 | 67 6c 69 73 74 2d 63 68 |n NIR-ar|glist-ch|
|00000ca0| 65 63 6b 20 28 66 6e 2d | 73 79 6d 62 6f 6c 20 61 |eck (fn-|symbol a|
|00000cb0| 72 67 6c 69 73 74 20 74 | 79 70 65 2d 73 70 65 63 |rglist t|ype-spec|
|00000cc0| 2d 6c 69 73 74 29 0d 20 | 20 28 66 6c 65 74 20 28 |-list). | (flet (|
|00000cd0| 28 61 72 67 2d 63 68 65 | 63 6b 20 28 61 72 67 20 |(arg-che|ck (arg |
|00000ce0| 74 79 70 65 2d 73 70 65 | 63 29 0d 20 20 20 20 20 |type-spe|c).     |
|00000cf0| 20 20 20 20 20 20 28 77 | 68 65 6e 20 28 63 6f 6e |      (w|hen (con|
|00000d00| 73 74 61 6e 74 70 20 61 | 72 67 29 0d 20 20 20 20 |stantp a|rg).    |
|00000d10| 20 20 20 20 20 20 20 20 | 20 28 75 6e 6c 65 73 73 |        | (unless|
|00000d20| 20 28 66 75 6e 63 61 6c | 6c 20 28 63 63 6c 3a 3a | (funcal|l (ccl::|
|00000d30| 6d 61 63 74 79 70 65 2d | 63 74 2d 74 79 70 65 2d |mactype-|ct-type-|
|00000d40| 63 68 65 63 6b 20 28 63 | 63 6c 3a 3a 66 69 6e 64 |check (c|cl::find|
|00000d50| 2d 61 72 67 2d 6d 61 63 | 74 79 70 65 20 74 79 70 |-arg-mac|type typ|
|00000d60| 65 2d 73 70 65 63 29 29 | 0d 20 20 20 20 20 20 20 |e-spec))|.       |
|00000d70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d80| 20 20 20 20 20 20 20 28 | 74 79 70 65 63 61 73 65 |       (|typecase|
|00000d90| 20 61 72 67 20 28 73 79 | 6d 62 6f 6c 20 28 73 79 | arg (sy|mbol (sy|
|00000da0| 6d 62 6f 6c 2d 76 61 6c | 75 65 20 61 72 67 29 29 |mbol-val|ue arg))|
|00000db0| 20 28 74 20 61 72 67 29 | 29 29 0d 20 20 20 20 20 | (t arg)|)).     |
|00000dc0| 20 20 20 20 20 20 20 20 | 20 20 28 65 72 72 6f 72 |        |  (error|
|00000dd0| 20 22 7e 73 20 76 61 6c | 75 65 20 7e 73 20 69 73 | "~s val|ue ~s is|
|00000de0| 20 6e 6f 74 20 6f 66 20 | 65 78 70 65 63 74 65 64 | not of |expected|
|00000df0| 20 74 79 70 65 3a 20 7e | 73 22 20 66 6e 2d 73 79 | type: ~|s" fn-sy|
|00000e00| 6d 62 6f 6c 20 61 72 67 | 20 74 79 70 65 2d 73 70 |mbol arg| type-sp|
|00000e10| 65 63 29 29 29 29 29 0d | 20 20 20 20 28 64 65 63 |ec))))).|    (dec|
|00000e20| 6c 61 72 65 20 28 64 79 | 6e 61 6d 69 63 2d 65 78 |lare (dy|namic-ex|
|00000e30| 74 65 6e 74 20 23 27 61 | 72 67 2d 63 68 65 63 6b |tent #'a|rg-check|
|00000e40| 29 29 0d 20 20 20 20 28 | 6d 61 70 63 20 23 27 61 |)).    (|mapc #'a|
|00000e50| 72 67 2d 63 68 65 63 6b | 20 61 72 67 6c 69 73 74 |rg-check| arglist|
|00000e60| 20 74 79 70 65 2d 73 70 | 65 63 2d 6c 69 73 74 29 | type-sp|ec-list)|
|00000e70| 29 29 0d 0d 0d 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |))...;;;|;;;;;;;;|
|00000e80| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000e90| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000ea0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000eb0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 0d 3b 3b 73 74 |;;;;;;;;|;;;.;;st|
|00000ec0| 72 65 61 6d 20 66 6f 72 | 20 72 65 61 64 69 6e 67 |ream for| reading|
|00000ed0| 20 73 79 6d 62 6f 6c 73 | 20 61 64 64 69 6e 67 20 | symbols| adding |
|00000ee0| 61 6e 20 75 6e 64 65 72 | 73 63 6f 72 65 20 70 72 |an under|score pr|
|00000ef0| 65 66 69 78 0d 0d 28 64 | 65 66 63 6c 61 73 73 20 |efix..(d|efclass |
|00000f00| 31 63 68 61 72 2d 70 72 | 65 66 69 78 2d 73 74 72 |1char-pr|efix-str|
|00000f10| 65 61 6d 20 28 69 6e 70 | 75 74 2d 73 74 72 65 61 |eam (inp|ut-strea|
|00000f20| 6d 29 0d 20 20 28 28 70 | 72 65 66 69 78 2d 63 68 |m).  ((p|refix-ch|
|00000f30| 61 72 20 20 20 3a 61 63 | 63 65 73 73 6f 72 20 70 |ar   :ac|cessor p|
|00000f40| 72 65 66 69 78 2d 63 68 | 61 72 0d 20 20 20 20 20 |refix-ch|ar.     |
|00000f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 69 6e |        |     :in|
|00000f60| 69 74 66 6f 72 6d 20 6e | 69 6c 29 0d 20 20 20 28 |itform n|il).   (|
|00000f70| 73 75 66 66 69 78 2d 73 | 74 72 65 61 6d 20 3a 61 |suffix-s|tream :a|
|00000f80| 63 63 65 73 73 6f 72 20 | 73 75 66 66 69 78 2d 73 |ccessor |suffix-s|
|00000f90| 74 72 65 61 6d 29 29 29 | 0d 0d 28 64 65 66 6d 65 |tream)))|..(defme|
|00000fa0| 74 68 6f 64 20 73 74 72 | 65 61 6d 2d 74 79 69 20 |thod str|eam-tyi |
|00000fb0| 28 28 73 20 31 63 68 61 | 72 2d 70 72 65 66 69 78 |((s 1cha|r-prefix|
|00000fc0| 2d 73 74 72 65 61 6d 29 | 29 0d 20 20 28 69 66 20 |-stream)|).  (if |
|00000fd0| 28 61 6e 64 20 28 70 72 | 65 66 69 78 2d 63 68 61 |(and (pr|efix-cha|
|00000fe0| 72 20 73 29 20 28 6e 6f | 74 20 28 73 74 72 65 61 |r s) (no|t (strea|
|00000ff0| 6d 2d 65 6f 66 70 20 28 | 73 75 66 66 69 78 2d 73 |m-eofp (|suffix-s|
|00001000| 74 72 65 61 6d 20 73 29 | 29 29 29 0d 20 20 20 20 |tream s)|))).    |
|00001010| 28 70 72 6f 67 31 20 28 | 70 72 65 66 69 78 2d 63 |(prog1 (|prefix-c|
|00001020| 68 61 72 20 73 29 20 28 | 73 65 74 66 20 28 70 72 |har s) (|setf (pr|
|00001030| 65 66 69 78 2d 63 68 61 | 72 20 73 29 20 6e 69 6c |efix-cha|r s) nil|
|00001040| 29 29 0d 20 20 20 20 28 | 73 74 72 65 61 6d 2d 74 |)).    (|stream-t|
|00001050| 79 69 20 28 73 75 66 66 | 69 78 2d 73 74 72 65 61 |yi (suff|ix-strea|
|00001060| 6d 20 73 29 29 29 29 0d | 0d 28 64 65 66 6d 65 74 |m s)))).|.(defmet|
|00001070| 68 6f 64 20 73 74 72 65 | 61 6d 2d 75 6e 74 79 69 |hod stre|am-untyi|
|00001080| 20 28 28 73 20 31 63 68 | 61 72 2d 70 72 65 66 69 | ((s 1ch|ar-prefi|
|00001090| 78 2d 73 74 72 65 61 6d | 29 20 63 68 61 72 29 0d |x-stream|) char).|
|000010a0| 20 20 28 73 65 74 66 20 | 28 70 72 65 66 69 78 2d |  (setf |(prefix-|
|000010b0| 63 68 61 72 20 73 29 20 | 63 68 61 72 29 29 0d 0d |char s) |char))..|
|000010c0| 28 64 65 66 76 61 72 20 | 2a 70 72 65 66 69 78 2d |(defvar |*prefix-|
|000010d0| 73 74 72 65 61 6d 2a 20 | 28 6d 61 6b 65 2d 69 6e |stream* |(make-in|
|000010e0| 73 74 61 6e 63 65 20 27 | 31 63 68 61 72 2d 70 72 |stance '|1char-pr|
|000010f0| 65 66 69 78 2d 73 74 72 | 65 61 6d 29 29 0d 0d 3b |efix-str|eam))..;|
|00001100| 3b 72 65 61 64 73 20 69 | 6e 20 74 68 65 20 6e 65 |;reads i|n the ne|
|00001110| 78 74 20 73 79 6d 62 6f | 6c 20 66 72 6f 6d 20 74 |xt symbo|l from t|
|00001120| 68 65 20 73 74 72 65 61 | 6d 20 69 6e 74 6f 20 74 |he strea|m into t|
|00001130| 68 65 20 74 72 61 70 73 | 20 70 61 63 6b 61 67 65 |he traps| package|
|00001140| 2c 20 70 72 65 70 65 6e | 64 69 6e 67 20 61 6e 20 |, prepen|ding an |
|00001150| 5f 0d 28 64 65 66 75 6e | 20 72 65 61 64 2d 74 72 |_.(defun| read-tr|
|00001160| 61 70 2d 73 79 6d 20 28 | 73 74 72 65 61 6d 29 0d |ap-sym (|stream).|
|00001170| 20 20 28 6c 65 74 20 28 | 28 70 72 65 66 69 78 2d |  (let (|(prefix-|
|00001180| 73 74 72 65 61 6d 20 28 | 6f 72 20 2a 70 72 65 66 |stream (|or *pref|
|00001190| 69 78 2d 73 74 72 65 61 | 6d 2a 20 28 6d 61 6b 65 |ix-strea|m* (make|
|000011a0| 2d 69 6e 73 74 61 6e 63 | 65 20 27 31 63 68 61 72 |-instanc|e '1char|
|000011b0| 2d 70 72 65 66 69 78 2d | 73 74 72 65 61 6d 29 29 |-prefix-|stream))|
|000011c0| 29 0d 20 20 20 20 20 20 | 20 20 28 2a 70 72 65 66 |).      |  (*pref|
|000011d0| 69 78 2d 73 74 72 65 61 | 6d 2a 20 6e 69 6c 29 29 |ix-strea|m* nil))|
|000011e0| 0d 20 20 20 20 28 73 65 | 74 66 20 28 73 75 66 66 |.    (se|tf (suff|
|000011f0| 69 78 2d 73 74 72 65 61 | 6d 20 70 72 65 66 69 78 |ix-strea|m prefix|
|00001200| 2d 73 74 72 65 61 6d 29 | 20 73 74 72 65 61 6d 29 |-stream)| stream)|
|00001210| 0d 20 20 20 20 28 75 6e | 72 65 61 64 2d 63 68 61 |.    (un|read-cha|
|00001220| 72 20 23 5c 5f 20 70 72 | 65 66 69 78 2d 73 74 72 |r #\_ pr|efix-str|
|00001230| 65 61 6d 29 0d 20 20 20 | 20 28 6c 65 74 20 28 28 |eam).   | (let ((|
|00001240| 2a 70 61 63 6b 61 67 65 | 2a 20 63 63 6c 3a 3a 2a |*package|* ccl::*|
|00001250| 74 72 61 70 73 2d 70 61 | 63 6b 61 67 65 2a 29 29 |traps-pa|ckage*))|
|00001260| 0d 20 20 20 20 20 20 28 | 72 65 61 64 20 70 72 65 |.      (|read pre|
|00001270| 66 69 78 2d 73 74 72 65 | 61 6d 20 74 20 6e 69 6c |fix-stre|am t nil|
|00001280| 20 74 29 29 29 29 0d 0d | 0d 3b 3b 3b 3b 3b 3b 3b | t))))..|.;;;;;;;|
|00001290| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000012a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000012b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000012c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 0d |;;;;;;;;|;;;;;;;.|
|000012d0| 3b 3b 23 7e 20 64 69 73 | 70 61 74 63 68 69 6e 67 |;;#~ dis|patching|
|000012e0| 20 6d 61 63 72 6f 20 63 | 68 61 72 0d 0d 3b 3b 54 | macro c|har..;;T|
|000012f0| 68 69 73 20 69 73 20 6d | 79 20 63 68 61 6e 63 65 |his is m|y chance|
|00001300| 20 74 6f 20 6d 61 70 20 | 61 20 73 79 6d 62 6f 6c | to map |a symbol|
|00001310| 20 74 6f 20 73 6f 6d 65 | 74 68 69 6e 67 20 65 6c | to some|thing el|
|00001320| 73 65 2c 20 6c 69 6b 65 | 20 61 20 4e 6f 74 20 49 |se, like| a Not I|
|00001330| 6e 20 52 4f 4d 20 6d 61 | 63 72 6f 20 6f 72 20 66 |n ROM ma|cro or f|
|00001340| 6e 2e 0d 3b 3b 20 49 74 | 20 77 6f 75 6c 64 20 62 |n..;; It| would b|
|00001350| 65 20 6e 69 63 65 20 74 | 6f 20 61 75 74 6f 2d 6c |e nice t|o auto-l|
|00001360| 6f 61 64 20 61 6e 79 20 | 6e 65 63 65 73 73 61 72 |oad any |necessar|
|00001370| 79 20 64 65 66 6e 73 20 | 61 74 20 74 68 69 73 20 |y defns |at this |
|00001380| 70 6f 69 6e 74 20 74 6f | 6f 2e 0d 3b 3b 20 42 75 |point to|o..;; Bu|
|00001390| 74 20 74 68 61 74 27 73 | 20 6e 6f 74 20 63 75 72 |t that's| not cur|
|000013a0| 72 65 6e 74 6c 79 20 69 | 6d 70 6c 65 6d 65 6e 74 |rently i|mplement|
|000013b0| 65 64 2e 0d 28 64 65 66 | 75 6e 20 4e 6f 74 49 6e |ed..(def|un NotIn|
|000013c0| 52 4f 4d 2d 6c 6f 6f 6b | 75 70 20 28 73 79 6d 62 |ROM-look|up (symb|
|000013d0| 6f 6c 29 0d 20 20 28 6f | 72 20 28 67 65 74 20 73 |ol).  (o|r (get s|
|000013e0| 79 6d 62 6f 6c 20 3a 4e | 6f 74 49 6e 52 4f 4d 2d |ymbol :N|otInROM-|
|000013f0| 6d 61 63 72 6f 2d 73 79 | 6d 29 20 28 67 65 74 20 |macro-sy|m) (get |
|00001400| 73 79 6d 62 6f 6c 20 3a | 4e 6f 74 49 6e 52 4f 4d |symbol :|NotInROM|
|00001410| 2d 66 6e 2d 73 79 6d 29 | 20 73 79 6d 62 6f 6c 29 |-fn-sym)| symbol)|
|00001420| 29 0d 0d 0d 28 64 65 66 | 75 6e 20 4e 6f 74 49 6e |)...(def|un NotIn|
|00001430| 52 4f 4d 2d 64 69 73 70 | 61 74 63 68 20 28 73 20 |ROM-disp|atch (s |
|00001440| 6d 61 63 72 6f 2d 63 68 | 61 72 20 69 6e 74 29 0d |macro-ch|ar int).|
|00001450| 20 20 28 64 65 63 6c 61 | 72 65 20 28 69 67 6e 6f |  (decla|re (igno|
|00001460| 72 65 20 6d 61 63 72 6f | 2d 63 68 61 72 29 29 0d |re macro|-char)).|
|00001470| 20 20 0d 20 20 28 77 68 | 65 6e 20 28 61 6e 64 20 |  .  (wh|en (and |
|00001480| 69 6e 74 20 28 6e 6f 74 | 20 2a 72 65 61 64 2d 73 |int (not| *read-s|
|00001490| 75 70 70 72 65 73 73 2a | 29 29 0d 20 20 20 20 28 |uppress*|)).    (|
|000014a0| 65 72 72 6f 72 20 22 52 | 65 61 64 65 72 20 64 69 |error "R|eader di|
|000014b0| 73 70 61 74 63 68 20 6d | 61 63 72 6f 20 63 68 61 |spatch m|acro cha|
|000014c0| 72 61 63 74 65 72 20 23 | 5c 7e 20 64 6f 65 73 6e |racter #|\~ doesn|
|000014d0| 27 74 20 74 61 6b 65 20 | 61 6e 20 61 72 67 75 6d |'t take |an argum|
|000014e0| 65 6e 74 2e 22 29 29 0d | 0d 20 20 28 6c 65 74 2a |ent.")).|.  (let*|
|000014f0| 20 28 28 73 79 6d 62 6f | 6c 20 28 4e 6f 74 49 6e | ((symbo|l (NotIn|
|00001500| 52 4f 4d 2d 6c 6f 6f 6b | 75 70 20 28 72 65 61 64 |ROM-look|up (read|
|00001510| 2d 74 72 61 70 2d 73 79 | 6d 20 73 29 29 29 29 0d |-trap-sy|m s)))).|
|00001520| 20 20 20 20 28 75 6e 6c | 65 73 73 20 2a 72 65 61 |    (unl|ess *rea|
|00001530| 64 2d 73 75 70 70 72 65 | 73 73 2a 0d 20 20 20 20 |d-suppre|ss*.    |
|00001540| 20 20 28 77 68 65 6e 20 | 28 65 71 20 73 79 6d 62 |  (when |(eq symb|
|00001550| 6f 6c 20 27 74 72 61 70 | 73 3a 3a 5f 29 0d 20 20 |ol 'trap|s::_).  |
|00001560| 20 20 20 20 20 20 28 65 | 72 72 6f 72 20 22 69 6c |      (e|rror "il|
|00001570| 6c 65 67 61 6c 20 66 6f | 72 6d 20 66 6f 6c 6c 6f |legal fo|rm follo|
|00001580| 77 69 6e 67 20 23 7e 7e | 20 3a 20 7e 73 22 20 28 |wing #~~| : ~s" (|
|00001590| 72 65 61 64 20 73 20 74 | 20 6e 69 6c 20 74 29 29 |read s t| nil t))|
|000015a0| 29 0d 0d 20 20 20 20 20 | 20 3b 3b 69 66 20 69 74 |)..     | ;;if it|
|000015b0| 20 74 75 72 6e 73 20 6f | 75 74 20 74 6f 20 62 65 | turns o|ut to be|
|000015c0| 20 61 20 72 65 67 75 6c | 61 72 20 74 72 61 70 20 | a regul|ar trap |
|000015d0| 73 79 6d 62 6f 6c 20 77 | 65 20 6d 75 73 74 20 6c |symbol w|e must l|
|000015e0| 6f 61 64 20 69 74 0d 20 | 20 20 20 20 20 28 77 68 |oad it. |     (wh|
|000015f0| 65 6e 20 28 74 72 61 70 | 2d 70 72 65 66 69 78 70 |en (trap|-prefixp|
|00001600| 20 73 79 6d 62 6f 6c 29 | 20 28 63 63 6c 3a 3a 6c | symbol)| (ccl::l|
|00001610| 6f 61 64 2d 74 72 61 70 | 20 73 79 6d 62 6f 6c 29 |oad-trap| symbol)|
|00001620| 29 29 0d 20 20 20 20 0d | 20 20 20 20 73 79 6d 62 |)).    .|    symb|
|00001630| 6f 6c 29 29 0d 0d 28 73 | 65 74 2d 64 69 73 70 61 |ol))..(s|et-dispa|
|00001640| 74 63 68 2d 6d 61 63 72 | 6f 2d 63 68 61 72 61 63 |tch-macr|o-charac|
|00001650| 74 65 72 20 23 5c 23 20 | 23 5c 7e 20 23 27 4e 6f |ter #\# |#\~ #'No|
|00001660| 74 49 6e 52 4f 4d 2d 64 | 69 73 70 61 74 63 68 29 |tInROM-d|ispatch)|
|00001670| 0d 0d 0d 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |...;;;;;|;;;;;;;;|
|00001680| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001690| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000016a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000016b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 0d 0d 23 7c 0d 0d 3b |;;;;;;;;|;..#|..;|
|000016c0| 3b 54 68 69 73 20 63 72 | 79 70 74 69 63 20 66 6e |;This cr|yptic fn|
|000016d0| 20 74 65 73 74 73 20 69 | 66 20 61 20 74 72 61 70 | tests i|f a trap|
|000016e0| 20 69 73 20 69 6e 20 74 | 68 65 20 69 6e 64 65 78 | is in t|he index|
|000016f0| 2e 20 49 66 20 73 6f 2c | 20 69 74 20 72 65 74 75 |. If so,| it retu|
|00001700| 72 6e 73 0d 3b 3b 74 68 | 65 20 74 72 61 70 27 73 |rns.;;th|e trap's|
|00001710| 20 6e 61 6d 65 2c 20 65 | 6c 73 65 20 6e 69 6c 2e | name, e|lse nil.|
|00001720| 20 49 74 20 75 73 65 73 | 20 75 6e 64 6f 63 75 6d | It uses| undocum|
|00001730| 65 6e 74 65 64 20 63 63 | 6c 20 66 6e 73 20 73 6f |ented cc|l fns so|
|00001740| 20 69 74 20 6d 61 79 20 | 62 72 65 61 6b 0d 3b 3b | it may |break.;;|
|00001750| 73 6f 6d 65 64 61 79 2e | 0d 0d 3b 3b 20 6f 72 69 |someday.|..;; ori|
|00001760| 67 69 6e 61 6c 6c 79 20 | 49 20 74 68 6f 75 67 68 |ginally |I though|
|00001770| 74 20 49 27 64 20 6e 65 | 65 64 20 74 68 69 73 20 |t I'd ne|ed this |
|00001780| 66 6e 2c 20 62 75 74 20 | 49 20 68 61 76 65 6e 27 |fn, but |I haven'|
|00001790| 74 20 73 6f 20 66 61 72 | 0d 28 64 65 66 75 6e 20 |t so far|.(defun |
|000017a0| 74 72 61 70 2d 69 6e 64 | 65 78 65 64 2d 70 20 28 |trap-ind|exed-p (|
|000017b0| 74 72 61 70 2d 73 79 6d | 62 6f 6c 29 0d 20 20 28 |trap-sym|bol).  (|
|000017c0| 63 63 6c 3a 3a 66 69 6e | 64 2d 69 6e 74 65 72 66 |ccl::fin|d-interf|
|000017d0| 61 63 65 2d 65 6e 74 72 | 79 20 74 72 61 70 2d 73 |ace-entr|y trap-s|
|000017e0| 79 6d 62 6f 6c 0d 20 20 | 20 20 20 20 20 20 20 20 |ymbol.  |        |
|000017f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001800| 20 20 20 63 63 6c 3a 3a | 2a 74 72 61 70 73 2d 69 |   ccl::|*traps-i|
|00001810| 6e 64 65 78 2d 66 69 6c | 65 2a 20 0d 20 20 20 20 |ndex-fil|e* .    |
|00001820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001830| 20 20 20 20 20 20 20 20 | 20 27 63 63 6c 3a 3a 2a |        | 'ccl::*|
|00001840| 74 72 61 70 73 2d 69 6e | 64 65 78 2d 73 74 72 65 |traps-in|dex-stre|
|00001850| 61 6d 2a 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |am*.    |        |
|00001860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001870| 20 6e 69 6c 20 6e 69 6c | 20 6e 69 6c 20 6e 69 6c | nil nil| nil nil|
|00001880| 20 6e 69 6c 29 29 0d 0d | 0d 7c 23 0d 0d 28 70 72 | nil))..|.|#..(pr|
|00001890| 6f 76 69 64 65 20 3a 4e | 6f 74 49 6e 52 4f 4d 2d |ovide :N|otInROM-|
|000018a0| 75 29 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |u)......|........|
|000018b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001900| 00 00 01 00 00 00 01 68 | 00 00 00 68 00 00 00 52 |.......h|...h...R|
|00001910| 73 79 6d 62 6f 6c 20 6c | 61 6d 62 64 61 2d 6c 69 |symbol l|ambda-li|
|00001920| 73 74 40 70 20 7b 40 69 | 64 65 63 6c 61 72 61 74 |st@p {@i|declarat|
|00001930| 0f 4e 6f 74 49 6e 52 4f | 4d 2d 75 2e 6c 69 73 70 |.NotInRO|M-u.lisp|
|00001940| 02 00 00 00 54 45 58 54 | 43 43 4c 32 01 00 00 8c |....TEXT|CCL2....|
|00001950| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 8c 00 c0 |..TEXTCC|L2......|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 a5 90 eb 9e 00 00 | 18 23 00 00 01 ba 61 6c |........|.#....al|
|00001980| 20 6d 61 63 72 6f 20 64 | 65 66 69 6e 69 74 69 6f | macro d|efinitio|
|00001990| 6e 2c 20 62 69 6e 64 73 | 20 69 74 20 74 6f 20 40 |n, binds| it to @|
|000019a0| 69 73 79 6d 62 6f 6c 40 | 64 2c 20 6d 61 72 6b 73 |isymbol@|d, marks|
|000019b0| 20 40 69 73 79 6d 62 6f | 6c 40 70 20 40 64 61 73 | @isymbo|l@p @das|
|000019c0| 20 61 20 6d 61 63 72 6f | 2c 20 61 6e 64 20 72 65 | a macro|, and re|
|000019d0| 74 75 72 6e 73 20 40 69 | 73 79 6d 62 6f 6c 40 64 |turns @i|symbol@d|
|000019e0| 2e 20 40 70 64 65 66 6d | 61 63 72 6f 40 64 20 69 |. @pdefm|acro@d i|
|000019f0| 73 20 74 68 65 20 6d 61 | 63 72 6f 20 65 71 75 69 |s the ma|cro equi|
|00001a00| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00001a10| 00 0a 00 00 07 43 6f 75 | 72 69 65 72 00 00 00 48 |.....Cou|rier...H|
|00001a20| 00 0a 43 6f 75 72 69 65 | 72 00 00 00 00 00 00 00 |..Courie|r.......|
|00001a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a40| 00 00 00 06 00 08 00 2c | 00 06 01 b1 02 09 00 2c |.......,|.......,|
|00001a50| 00 06 01 b1 02 09 00 00 | 00 00 00 00 01 df 00 00 |........|........|
|00001a60| 01 df 00 00 00 00 01 00 | 00 00 01 00 00 00 01 68 |........|.......h|
|00001a70| 00 00 00 68 00 00 00 52 | 00 a1 ef e4 05 e2 00 00 |...h...R|........|
|00001a80| 00 1c 00 52 00 01 46 52 | 45 44 00 01 00 12 4d 50 |...R..FR|ED....MP|
|00001a90| 53 52 00 00 00 2a 00 02 | ff ff 00 00 00 00 00 00 |SR...*..|........|
|00001aa0| 00 00 00 03 ff ff 00 00 | 00 0e 00 00 00 00 03 ed |........|........|
|00001ab0| ff ff 00 00 00 1c 00 a2 | 0e dc 00 00 00 00 00 00 |........|........|
|00001ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+